gusucode.com > 智睿政府网站管理系统 V2.1.0 > 智睿政府网站管理系统 V2.1.0\code\Include\lockipfun.asp
<% sub fiship(uip) dim tip tip = split(uip,".") if not IsArray(tip) then un_ip=1 if UBound(tip)<3 then un_ip=1 if Not IsNumeric(tip(0)) or Not IsNumeric(tip(1)) or Not IsNumeric(tip(2)) or Not IsNumeric(tip(3)) then un_ip=1 if cint(tip(0))>255 or cint(tip(1))>255 or cint(tip(2))>255 or cint(tip(3))>255 then un_ip=1 end sub function fishcip(sip) dim tip tip = split(sip,".") if cint(tip(0))<128 then fishcip=cint(tip(0))*256*256*256+cint(tip(1))*256*256+cint(tip(2))*256+cint(tip(3)) else fishcip=cint(tip(0))*256*256*256+cint(tip(1))*256*256+cint(tip(2))*256+cint(tip(3))-4294967296 end if end function sub fishadminip(uip) dim tip tip = split(uip,".") if not IsArray(tip) then call eorr() if UBound(tip)<3 then call eorr() if Not IsNumeric(tip(0)) or Not IsNumeric(tip(1)) or Not IsNumeric(tip(2)) or Not IsNumeric(tip(3)) then call eorr() if cint(tip(0))>255 or cint(tip(1))>255 or cint(tip(2))>255 or cint(tip(3))>255 then call eorr() end sub function fishadmincip(sip) tip=cstr(sip) sip1=left(tip,cint(instr(tip,".")-1)) tip=mid(tip,cint(instr(tip,".")+1)) sip2=left(tip,cint(instr(tip,".")-1)) tip=mid(tip,cint(instr(tip,".")+1)) sip3=left(tip,cint(instr(tip,".")-1)) sip4=mid(tip,cint(instr(tip,".")+1)) if cint(sip1)<128 then fishadmincip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4) else fishadmincip=cint(sip1)*256*256*256+cint(sip2)*256*256+cint(sip3)*256+cint(sip4)-4294967296 end if end function %>